home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 July / 07_02.iso / software / xq-xsetup / files / setup.exe / {app} / plugins / XQ IE FTP.xpl < prev    next >
Text File  |  2001-01-06  |  2KB  |  69 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="7"
  3. "COUNT"="3"
  4. "UIPATH"="Internet\Internet Explorer\System"
  5. "NAME"="FTP Behaviour"
  6. "VERSION"="2.02"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Use IE internal; new display mode (Explorer-like)"
  9. "TEXT 2"="Use IE internal; simple display mode (no upload etc.)"
  10. "TEXT 3"="Use external DOS FTP"
  11. "DESCRIPTION 1"="Select the mode how you wish to access ftp:// URLs" 
  12. "AUTHOR"="Ojatex@aol.com"
  13. "CONTACTURL"="http://members.aol.com/ojatex/"
  14. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  15. "COMMENT 1"=" "
  16. "COMMENT 2"="Faster FTP --> Keyword: FTP [For AOLers only]"
  17.  
  18. sP="HKLM\Software\Microsoft\Windows\CurrentVersion\URL\Prefixes\ftp"
  19. sV2="HKCU\Software\Microsoft\Ftp\Use Web Based FTP" 'STR "no" = Explorer like display
  20.  
  21. Sub Plugin_Initialize 
  22.   s=RegReadValue(sP)
  23.   if s="ftp://" then
  24.  
  25.      'internal... which one?
  26.      s=RegReadValue(sV2)
  27.      if s="yes" then 
  28.         Call SetUIElement(2,true)
  29.      else
  30.         Call SetUIElement(1,true)
  31.      end if 
  32.  
  33.   else
  34.  
  35.      Call SetUIElement(3,true)
  36.  
  37.   end if
  38.  
  39.  
  40.  
  41. End Sub
  42.  
  43. Sub Plugin_CheckData(ElementIndex)
  44. End Sub
  45.  
  46. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  47.  if GetUIElement(3)=true then
  48.     'use external
  49.     if RegValueExists(sP) then
  50.        Call RegDeleteValue(sP)
  51.     end if
  52. else
  53.     Call RegWriteValue(sp,"ftp://",1)
  54.  
  55.     if GetUIElement(1)=true then
  56.        Call RegWriteValue(sV2,"no",1)
  57.     else
  58.        Call RegWriteValue(sV2,"yes",1)
  59.     end if
  60. end if
  61.  
  62.  
  63.  
  64. End Sub
  65.  
  66. Sub Plugin_Terminate 
  67. End Sub
  68.  
  69.